VB语言解一元二次方程ax^2+bx+c=0的编程

SYSTEM的答案公式弄错了，变量定义也不对，这个是正确的
Private Sub Solve(ByVal a As Double, ByVal b As Double, ByVal c As Double)
Dim delta#, x1#, x2#
delta = b ^ 2 - 4 * a * c
If delta >= 0 Then
x1 = (-b + Sqr(delta)) / 2 * a
x2 = (-b - Sqr(delta)) / 2 * a
Else
Print "判别式小于零，无实根！"
End If
End Sub

Private Sub Solve(ByVal a As Double, ByVal b As Double, ByVal c As Double)
Dim delta, x1, x2 As Double
delta = b ^ 2 - 4 * a * c
If delta >= 0 Then
x1 = (-b + Sqr(delta)) / 2
x2 = (-b - Sqr(delta)) / 2
Else
Print "判别式小于零，无实根！"
End If
End Sub